home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Plug-ins / QuarkXPress / Others / Adobe Prepress XTension 1.02 / Adobe Prepress XTension / Adobe Prepress XTension.rsrc / STR#_20668.txt < prev    next >
Text File  |  1993-10-28  |  1KB  |  38 lines
  1. (Line)APX_screenchange
  2. {exch pop}
  3.  
  4. (Rhomboid)APX_screenchange
  5. {abs exch abs .9 mul add 2 div}
  6.  
  7. (Diamond)APX_screenchange
  8. {abs exch abs 2 copy add .75 le{dup mul exch dup mul add 1 exch sub}{2 copy add 1.25 le{.85 mul add 1 exch sub}{1 sub dup mul exch 1 sub dup mul add 1 sub}ifelse}ifelse}
  9.  
  10. (-) 3{pop}repeat
  11.  
  12. (Euclidean)APX_screenchange
  13. {abs exch abs 2 copy add 1 gt{1 sub dup mul exch 1 sub dup mul add 1 sub}{dup mul exch dup mul add 1 exch sub}ifelse}
  14.  
  15. (Elliptical Inverse)APX_screenchange
  16. {dup mul .9 mul exch dup mul add 1 sub}
  17.  
  18. (Elliptical)APX_screenchange
  19. {dup mul .9 mul exch dup mul add 1 exch sub}
  20.  
  21. (Double Inverse)APX_screenchange
  22. exch 2 div exch{2{360 mul sin 2 div exch}repeat add neg}
  23.  
  24. (Double)APX_screenchange
  25. exch 2 div exch{2{360 mul sin 2 div exch}repeat add}
  26.  
  27. (Round Inverse)APX_screenchange
  28. {dup mul exch dup mul add 1 sub}
  29.  
  30. (Round)APX_screenchange
  31. {dup mul exch dup mul add 1 exch sub}
  32.  
  33. (-) 3{pop}repeat
  34.  
  35. (Default)APX_screenchange
  36. currentscreen 3 1 roll pop pop dup type/dicttype eq{/SpotFunction get}if
  37.  
  38.